home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / UNCX01.F01 < prev    next >
Encoding:
Text File  |  1996-04-01  |  1.4 KB  |  26 lines
  1. CIMFIL/ON,LOADTL                      $$ TRAP LOADTL(TOOLCHANGE)
  2.  REDEF/ON                             $$ ALLOW VARIABLES TO BE OVERWRITTEN
  3.  RSLT=POSTF(20)                       $$ SAVE RECORD ASIDE
  4.  PREFUN/80,NEXT                       $$ ADD G80 NEXT TO...
  5.  PREFUN/40,NEXT                       $$ G40 NEXT TO...
  6.  PREFUN/17,NEXT                       $$ G17 NEXT TO... 
  7.  PREFUN/0,                            $$ G0  
  8.  RSLT=POSTF(21)                       $$ RELOAD RECORD
  9.  RSLT=POSTF(9,7,159)                  $$ CHANGE LENGTH TO ADJUST(159)
  10.  RSLT=POSTF(10,6,0)                   $$ CHANGE THE LENGTH TO 0
  11.  RSLT=POSTF(13)                       $$ SEND RECORD TO POST
  12. CIMFIL/OFF                            $$ END ROUTINE
  13.  
  14. CIMFIL/ON,END                         $$ TRAP END
  15.  RSLT=POSTF(20)                       $$ SAVE RECORD ASIDE
  16.  AUXFUN/5,                            $$ ADD M5 
  17.  PREFUN/0,NEXT                        $$ ADD G0 
  18.  PREFUN/91,NEXT                       $$ ADD G91 
  19.  Z0=POSTF(1,3,343)                    $$ GET THE CURRENT Z LOCATION
  20.  Z0=(Z0*-1)                           $$ REVERSE THE SIGN OF THE CURRENT Z
  21.  RAPID                                $$ SET RAPID MODE
  22.  GODLTA/0,0,Z0                        $$ OUTPUT Z0
  23.  RSLT=POSTF(21)                       $$ RELOAD RECORD
  24.  RSLT=POSTF(13)                       $$ SEND TO POST
  25. CIMFIL/OFF                            $$ END ROUTINE
  26.